home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 6 / developer source - volume 6.iso / delph / aug95 / ripp1f7.gif

< prev

next >

Graphics Interchange Format  |  1996-11-15  |  8KB  |  534x373  |  4-bit (5 colors)

Labels: text | electronics | screenshot | display | software | number | font
OCR: GLOSSARY.PAS procedure TForm1 . Button1Click (Sender: TObject) ; var SelectedWord: String; begin with TGlossary do begin EditKey; SelectedWord := UpperCase (Memo1. SelText) ; FieldByName (' Word' ) . AsString := SelectedWord; if not GoToKey then MessageDlg ('No definition is available for '+ SelectedWord+'. ', mt Information, [mbOk] , 0) else MessageDlg ( TGlossary . FieldByName (' Definition' ) . Text, mt Information, [mbOk] , 0) ; end; end; 46: 39 Modified Insert Glossary

---